mov bx,0
ciclo: mov ah,01h
       int 21h
       cmp al,0dh
       je fine
       push ax
       mov ax,bx
       mul dieci
       mov bx,ax
       pop ax
       sub al,30h
       mov ah,0
       add bx,ax
       jmp ciclo
fine:  mov ax,bx
       mov cl,00
sta:   mov dx,0
       div dieci
       push dx
       inc cl
       cmp ax,0
       jne sta
 rip:  pop dx
       add dl,30h
       mov ah,02h
       int 21h
       dec cl
       jnz rip
	int 21h